home *** CD-ROM | disk | FTP | other *** search
/ Online Today 2000 January / Onto0100.iso / pc / Browser / Web-Fix / Web-Fix Installer.exe / Main / Sorry.k < prev    next >
Encoding:
Text File  |  1999-09-08  |  1.3 KB  |  68 lines
  1. module oRoot1 is cBox
  2. with 
  3.     Flags is $00000152; 
  4.     release Editor:
  5.         IOWindow is {$0000015E,$000000E5,$0000028F,$000001EF,$00000000,$00000000,$00000000,$00000000};
  6.         LayoutWindow is {$00000163,$0000002A,$0000028F,$000001EF,$00000000,$00000000,$00000064,$00000000};
  7.     end;
  8.     Name is "Root"; 
  9.     Enabled is false; 
  10.     
  11.     Width is 640; Height is 480; 
  12.     
  13.     
  14.     Elements is [
  15.         oBlack2,
  16.         oSorry3
  17.     ];
  18.     Events is [
  19.         cOffscreenEvent
  20.         with Flags is $00000004; 
  21.             Commands is [
  22.                 cKR_ScriptCommand
  23.                 with ScriptGroup is "Web-Fix 2 Init"; Script is oWF_InitializeWave2; end
  24.             ];
  25.         end,
  26.         cOnscreenEvent
  27.         with Flags is $00000004; 
  28.             Commands is [
  29.                 cKR_SwitchPlus
  30.                 with Target is oSorry3; CookieFlag is true; CookieName is "SorryURL"; end
  31.             ];
  32.         end
  33.     ];
  34. end;
  35.  
  36. object oBlack2 is cBox
  37. with 
  38.     Flags is $00000050; 
  39.     Name is "Black"; 
  40.     Region is {$FFFF000A,$00000000,$02580320};
  41.     Cursor is oEmptyCursor; 
  42.     
  43.     AdjustWidth is GetLayoutWidth; AdjustHeight is GetLayoutHeight; 
  44.     
  45.     Kind is DrawOpaque; 
  46. end;
  47.  
  48. object oSorry3 is cImage
  49. with 
  50.     Flags is $00000154; 
  51.     Name is "Sorry"; 
  52.     Cursor is oArrowCursor; 
  53.     
  54.     AdjustWidth is GetLayoutWidth; AdjustHeight is GetLayoutHeight; 
  55.     
  56.     
  57.     
  58.     
  59.     Events is [
  60.         cMouseDownEvent
  61.         with Flags is $00000004; 
  62.             Commands is [
  63.                 cQuitCommand
  64.                 with end
  65.             ];
  66.         end
  67.     ];
  68. end;